00100 COMPILE; 00800 INSTRUMENT GLISS; 00900 OSCIL(P4,MAG/P2,P5); 01000 OSCIL(P7*MAG-MAG*P3,MAG/P8,P9); 01100 COSCIL(U1,U2+MAG*P3,P6); 01200 OUTA←OUTA+U3;END; 02500 FINISH;